home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 7
/
Aminet 7 - August 1995.iso
/
Aminet
/
comm
/
mebbs
/
delxchat.lha
/
deluxechat.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-11-19
|
6KB
|
2 lines
/* Optimized with RexxOpt 1.6 */
Options results;parse arg LineNumber;DoorName="metpagechat";if(~show('l',"mebbsarexx.library"))then;do;if(~addlib("mebbsarexx.library",0,-30,0))then;do;say "Could not open library";exit 10;end;end;call GetVar DoorName,LineNumber,1;username=result;call GetVar DoorName,LineNumber,4;city=result;firstname=subword(username,1,1);secondname=subword(username,2,1);username=firstname||"_"||secondname;BS='08'x;CR="";v=1;colour="
";cc=0;if exists("doors:mychat/"username)=0 then;do;address command "makedir doors:mychat/"username;end;call open filer,("T:LINE"linenumber),'W';call writeln filer,username;call writeln filer,city;call writeln filer,"Chatting to the Metnet Sysop - Jon";call close filer;backtoo:;call readfile doorname,linenumber,"doors:mychat/intro.txt";call message doorname,linenumber,"",1;call message doorname,linenumber,"",1;call message doorname,linenumber,"[THE SYSOP INTERRUPTS FOR A CHAT]",1;call message doorname,linenumber,"",1;call message doorname,linenumber,"
Press @ to terminate chat mode.
",1;call message doorname,linenumber,"",1;if exists("T:"sendtext||linenumber)=0 then call chatter;call Open file,("T:"sendtext||linenumber),'R';an=readln(file);thename=readln(file);thetext=READln(file);call close file;call message DoorName,LineNumber,"
WHO-ONLINE Messaging System. Developed by Jon Witty 94 (c). MEBBSNET PRO #9000",1;call message doorname,linenumber,"
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",1;call message doorname,linenumber,"
"thename"
from line
"an"
writes :",1;call message DoorName,LineNumber,"
"thetext,1;call message DoorName,LineNumber,"
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",1;call message doorname,linenumber,"
[
R
]
Eply
",0;call message doorname,linenumber,"[
RETURN
]
to check for another reply",1;call message doorname,linenumber,"
[
Q
]
uit
",0;call message doorname,linenumber,"
[
D
]
o NOT Disturb
",0;call hotkey doorname,linenumber,"";rep=upper(result);if rep="D" then call message doorname,linenumber,"Use Who online for this option",1;if rep="R" then;do;call message DoorName,LineNumber,"",1;call prompt doorname,linenumber,"Enter >
",70;me=result;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call open filerz,("T:sendtext"an),'W';call writeln filerz,linenumber;call writeln filerz,username;call writeln filerz,me;call close filerz;end;if rep ~="Q" then call backtoo;if exists("T:"sendtext||linenumber)=1 then address command "C:delete t:sendtext"linenumber;chatter:;u=2;zzz=0;count=1;confvar.u="";zest="";call message doorname,linenumber,"_",0;DO until confvar.u="@";call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;zest="";rest="";best="";zzz=0;u=u+1;call hotkey doorname,linenumber,"";confvar.u=result;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;if u>=79|confvar.u=CR then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;A=2;grob="";DO UNTIL A=U;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;grob=grob||confvar.a;a=a+1;end;killer= DATE();if exists("doors:mychat/"username"/"killer)=0 then;do;call open filez,("doors:mychat/"username"/"killer),'W';end;if exists("doors:mychat/"username"/"killer)=1 then;do;call open filez,("doors:mychat/"username"/"killer),'A';if cc=0 then;do;call writeln filez,"";call writeln filez," -------- "time()" --------";cc=1;end;if confvar.u=CR then call writeln filez,"";call writeln filez,grob;call close filez;end;end;if u>=79 then;do until confvar.u=" ";call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;zzz=1;zest=zest||confvar.u;u=u-1;end;if zzz=1 then;do;u=2;i=0;u=u+length(zest);xx=length(zest);do until i=xx;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,"D",0;i=i+1;end;i=0;do until i=xx;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber," ",0;i=i+1;end;i=1;call message doorname,linenumber,"",1;best=reverse(zest);rest=space(best);call message doorname,linenumber,rest,0;end;if zzz=0 then call message doorname,linenumber,"D"confvar.u,0;if confvar.u=BS&zzz=0 then;do;call message doorname,linenumber,"P",0;u=u-2;if u<=0 then u=0;end;if confvar.u=CR&zzz=0 then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,"",1;call message doorname,linenumber,colour,1;if v=1&zzz=0 then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;colour="
";v=2;call chatter;end;if v=2&zzz=0 then;do;colour="
";v=1;call chatter;end;end;call message doorname,linenumber,"_",0;if exists("T:"sendtext||linenumber)=1 then call backtoo;end;End_it:;call message doorname,linenumber,"",1;call message doorname,linenumber,"
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",0;call message doorname,linenumber,"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",1;call message doorname,linenumber,"
MEBBSNET DELUXE CHAT V1.0 ",0;call message doorname,linenumber,"
Programmed by Jon Witty 94 (c)",1;call message doorname,linenumber,"
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",0;call message doorname,linenumber,"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",1;call message doorname,linenumber,"",1;call message doorname,linenumber,"
Metnet BBS +44-482-473871 - Hull - England",1;call hotkey doorname,linenumber,"Hit any key";call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call Exit_Door DoorName,LineNumber;exit 0